home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / moves.arc / MOVES.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-09  |  1KB  |  30 lines
  1. { =========================================================================== }
  2. { Moves.pas - Unit for 16-bit move transfers                ver 1.0, 07-12-88 }
  3. {                                                                             }
  4. { Move16 - replacement for TP move; twice as fast                             }
  5. { Move16n - for intersegment moves which normalizes the pointers first.       }
  6. {                                                                             }
  7. { The NumOfBytes at which these routine surpass the TP move routine for speed }
  8. { is 6 and 56 bytes respectively, after which, both get to be twice as fast.  }
  9. {                                                                             }
  10. { Only 112 bytes of code for both procedures.                                 }
  11. {   by James H. LeMay (CIS: 76011,217)                                        }
  12. { =========================================================================== }
  13.  
  14. {$R-,S-,I-,D+,T-,F-,V-,B-,N-,L+ }
  15.  
  16. UNIT Moves;
  17.  
  18. INTERFACE
  19.  
  20. procedure Move16  (VAR Source,Dest; NumOfBytes: word);
  21. procedure Move16n (VAR Source,Dest; NumOfBytes: word);
  22.  
  23. IMPLEMENTATION
  24.  
  25. {$L Moves.obj }
  26. procedure Move16;   external;
  27. procedure Move16n;  external;
  28.  
  29. END.
  30.